﻿Public Class FeuerkrafttabellePanzer110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuss.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Hoellium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 110
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 110
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 110
        End Select
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|110|100|90"
    End Function
End Class
